
Imports System.Drawing

<Serializable()> Public Class CampaignerLabel
    Private _backcolor As Color
    Private _forecolor As Color
    Private _text As String
    Private _location As Point

    Public Overrides Function ToString() As String
        Return _text
    End Function

    Public Property BackColor() As Color
        Get
            Return _backcolor
        End Get
        Set(ByVal value As Color)
            _backcolor = value
        End Set
    End Property

    Public Property ForeColor() As Color
        Get
            Return _forecolor
        End Get
        Set(ByVal value As Color)
            _forecolor = value
        End Set
    End Property

    Public Property location() As Point
        Get
            Return _location
        End Get
        Set(ByVal value As Point)
            _location = value
        End Set
    End Property

    Public Property text() As String
        Get
            Return _text
        End Get
        Set(ByVal value As String)
            _text = value
        End Set
    End Property

End Class


<Serializable()> Public Class CampaignerLabels : Inherits CollectionBase

    Default Public Property item(ByVal index As Integer) As CampaignerLabel
        Get
            Return InnerList.Item(index)
        End Get
        Set(ByVal value As CampaignerLabel)
            InnerList.Item(index) = value
        End Set
    End Property

    Public Sub Add(ByVal value As CampaignerLabel)
        InnerList.Add(value)
    End Sub

    Public Sub Remove(ByVal obj As CampaignerLabel)
        InnerList.Remove(obj)
    End Sub
End Class
